home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 16
/
64er_Magazin_Sonderheft_16_19xx_Markt__Technik_de_Side_A.d64
/
twm-listing 3
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
318b
|
19 lines
10 rem wcmd- und uhr-window-demo
20 :
30 sys 32168 :rem twm-initialisierung
40 :
50 (NULL)1,0,30,2,39,1
60 (NULL)1,12,0
70 (NULL)2,5,0,20,25,1,0,"haupt-window"
80 (NULL)2,8,128
90 (NULL)3,5,27,9,39,1,0,"anzeige"
100 (NULL)3,4,128
110 :
120 (NULL)1 :(NULL) "123456",1,31
130 (NULL)3
140 (NULL)2
150 for n=1 to 1000
160 (NULL)3 :print" n ="n; :(NULL)2
170 print n;"^ 2 = "n^2
180 next